home *** CD-ROM | disk | FTP | other *** search
/ The 640 MEG Shareware Studio 2 / The 640 Meg Shareware Studio CD-ROM Volume II (Data Express)(1993).ISO / bbs / ansi002.zip / ANSI002.MRG < prev   
Text File  |  1992-03-01  |  4KB  |  64 lines
  1. * ------------[ BLED merge (c) Ken Goosens ]--------------------
  2. * Merge this against RBBS-PC.BAS to produce RBBS-PC.NEW
  3. * --------------------------------------------------------------
  4. * This merge allows the use of Auto-ANSI detect for RBBS-PC
  5. * and will allow the use of a color PRELOG file to be displayed
  6. * to the user with ANSI installed on their system.
  7. * Written jointly by Gary Glueckert of The SUNY BBS 516-420-0818
  8. * and Richie Molinelli of The Small Time BBS 516-579-7929
  9. * --------------------------------------------------------------
  10. * RBBS-PC.BAS: Dated 9-1-1991 Size 151907 bytes
  11. * -----[ Merge file created 02-27-1992 - G. Glueckert ]---------
  12. * REPLACING old line(s) by new
  13. 345 LOCATE 24,1
  14.     CALL AMorPM
  15.     ZUserLogonTime! = TIMER
  16.     ZTimeLoggedOn$ = TIME$
  17.     ZLinesPrinted = 0
  18.     ZExpertUserDef = ZExpertUser
  19.     ZExpertUser = ZFalse
  20.     CALL SetExpert
  21.     ZOutTxt$ = ""
  22.     IF NodesInSystem > 1 THEN _
  23.        ZOutTxt$ = " - Node " + ZNodeID$                              ' DA071701
  24.     IF ZReliableMode THEN _
  25.        ZOutTxt$ = ZOutTxt$ + " (Rel)"                                ' TC090101
  26.     IF ZRBBSName$ <> "" THEN _                                       ' TC090101
  27.        CALL QuickTPut1 ("Welcome to " + ZRBBSName$ + ZOutTxt$)       ' DA071701
  28.     ZTestParity = ZTrue
  29.     ZStopInterrupts = ZTrue
  30.     ZFileName$ = ZPreLog$
  31.     CALL FlushCom (WasX$)
  32. * INSERTING new line(s)
  33. * ------[ first line different ]------
  34.     IF ZLocalUser THEN _                                             ' SG030101
  35.        CALL BreakFileName (ZFileName$,DR$,WasX$,Extension$,ZTrue) : _' SG030101
  36.        IF LEN (WasX$) < 8 THEN _                                     ' SG030101
  37.        ZWasDF$ = DR$ + _                                             ' SG030101
  38.              WasX$ + "C" + _                                         ' SG030101
  39.              Extension$ : _                                          ' SG030101
  40.        ZFileName$ = ZWasDF$ : _                                      ' SG030101
  41.        GOTO 346                                                      ' SG030101
  42.     IF NOT ZLocalUser THEN _                                         ' RM022601
  43.     CALL QuickTPut1 ("Auto-Sensing ANSI...") : _                     ' GG022701
  44.     CALL PutCom ("n") : _                                         ' RM022601
  45.     CALL DelayTime (2) : _                                           ' RM022601
  46.     CALL FlushCom (ZWasY$) : _                                       ' RM022601
  47.     IF MID$(ZWasY$,1,1) <> "" THEN _                                ' RM022601
  48.        ZCommPortStack$ = "" : _                                      ' RM022601
  49.        CALL SkipLine (1) : _                                         ' RM022701
  50.        CALL QuickTPut1 ("ANSI not detected.") : _                    ' GG022701
  51.        GOTO 346                                                      ' RM022601
  52.     IF MID$(ZWasY$,1,1) = "" THEN _                                 ' RM022601
  53.        CALL FlushCom (ZWasDF$) : _                                   ' GG022501
  54.        CALL SkipLine (1) : _                                         ' RM022601
  55.        CALL QuickTPut1 ("ANSI Detected!") : _                 ' GG022701
  56.        CALL DelayTime (2) : _                                        ' RM022601
  57.        CALL BreakFileName (ZFileName$,DR$,WasX$,Extension$,ZTrue) : _' GG022501
  58.        IF LEN(WasX$) < 8 THEN _                                      ' GG022501
  59.            ZWasDF$ = DR$ + _                                         ' GG022501
  60.                  WasX$ + "C" + _                                     ' GG022501
  61.                  Extension$ : _                                      ' GG022501
  62.            ZFileName$ = ZWasDF$                                      ' GG022501
  63.     ZCommPortStack$ = ""
  64.